home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / NOTES.bas < prev    next >
BASIC Source File  |  2019-02-16  |  2KB  |  40 lines
  1. 10  SPEED= 255: TEXT : PRINT  CHR$(21): HOME :Q$ =  CHR$(34):D$ =  CHR$(4)
  2. 20  PRINT "--------------------------------------": PRINT 
  3. 30  INVERSE : PRINT " KEYCAT.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 32)"
  4. 40  PRINT "WORKS ON A II+ WITH A VIDEX VIDEOTERM.": PRINT 
  5. 50  PRINT "--------------------------------------": PRINT 
  6. 60  INVERSE : PRINT " DUMP.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 39)"
  7. 70  PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT 
  8. 80  PRINT "--------------------------------------": PRINT 
  9. 90  INVERSE : PRINT " INPUT.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 40)"
  10. 100  PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT 
  11. 110  PRINT "--------------------------------------": PRINT 
  12. 120  INVERSE : PRINT " SAVE.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 71)"
  13. 130  PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT 
  14. 140  PRINT "--------------------------------------"
  15. 150  POKE 49168,0: PRINT : PRINT "PRESS RETURN TO CONTINUE: ";: GET X$: PRINT : HOME 
  16. 160  SPEED= 170:SP = 49200:ND = 16: DIM A$(ND): FOR I = 0 TO ND: READ A$(I): NEXT : INVERSE : VTAB 23: PRINT  SPC( 39): PRINT 
  17. 170  FOR I = 0 TO ND:L =  LEN(A$(I)): FOR J = 1 TO L:X$ =  MID$ (A$(I),J,1)
  18. 180  PRINT X$;: IF X$ < >" "  THEN Y =  PEEK(SP)
  19. 190  NEXT : PRINT  SPC( 39 -L): PRINT :Y =  PEEK(SP): NEXT : NORMAL : VTAB 23:: SPEED= 1: FOR I = 0 TO 2: PRINT :X =  PEEK(SP): NEXT : SPEED= 255
  20. 200  DATA  "          EXTRA CREDITS GO TO"
  21. 210  DATA  " "
  22. 220  DATA  "         B E R T   K E R S E Y"
  23. 230  DATA  "   FOR PROGRAMMING ON CRT.WRITER &"
  24. 240  DATA  "   XLISTER, AND FOR LOTS OF IDEAS"
  25. 250  DATA  " "
  26. 260  DATA  "       M A R K   S I M O N S E N"
  27. 270  DATA  "   FOR WRITING THE RELOCATING ROUTINE"
  28. 280  DATA  "   USED WITH THE NEW COMMAND PROGRAMS"
  29. 290  DATA  " "
  30. 300  DATA  "      M I K E   P A R K I N S O N"
  31. 310  DATA  "   FOR THE GRAPHICS ON THE SHOW DEMO"
  32. 320  DATA  " "
  33. 330  DATA  "  J A C K   C A S S I D Y ,   A L A N"
  34. 340  DATA  " B I R D   &   D O N   S C H U B E R T"
  35. 350  DATA  "          FOR DEBUGGING HELP."
  36. 360  DATA  " "
  37. 370  PRINT : PRINT "PRESS "Q$"M"Q$" FOR THE MENU, OR "Q$"Q"Q$" TO QUIT:";
  38. 380  GET X$: IF X$ = "M"  OR X$ = "m"  THEN  PRINT D$"-STARTUP"
  39. 390  IF   NOT (X$ = "Q"  OR X$ = "q")  THEN 380
  40. 400  VTAB 22: CALL  -958